home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / APE / AECLIENT / FRMCLNT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-06  |  6.8 KB  |  201 lines
  1. VERSION 5.00
  2. Begin VB.Form frmClient 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Client"
  5.    ClientHeight    =   2145
  6.    ClientLeft      =   270
  7.    ClientTop       =   1860
  8.    ClientWidth     =   4200
  9.    ClipControls    =   0   'False
  10.    Icon            =   "frmclnt.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   2145
  14.    ScaleWidth      =   4200
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.Timer tmrStartTest 
  17.       Enabled         =   0   'False
  18.       Interval        =   10
  19.       Left            =   240
  20.       Top             =   1200
  21.    End
  22.    Begin VB.ListBox lstLog 
  23.       Height          =   585
  24.       IntegralHeight  =   0   'False
  25.       Left            =   840
  26.       TabIndex        =   0
  27.       Top             =   1080
  28.       Visible         =   0   'False
  29.       Width           =   645
  30.    End
  31.    Begin VB.Label lblCallsReturnedCaption 
  32.       BackStyle       =   0  'Transparent
  33.       Caption         =   "Calls Returned"
  34.       BeginProperty Font 
  35.          Name            =   "Tahoma"
  36.          Size            =   9.75
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   255
  44.       Left            =   240
  45.       TabIndex        =   5
  46.       Top             =   600
  47.       Width           =   2535
  48.    End
  49.    Begin VB.Label lblCallsReturned 
  50.       BackStyle       =   0  'Transparent
  51.       BeginProperty Font 
  52.          Name            =   "Tahoma"
  53.          Size            =   9.75
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   255
  61.       Left            =   2880
  62.       TabIndex        =   4
  63.       Top             =   600
  64.       Width           =   1095
  65.    End
  66.    Begin VB.Label lblCallsMade 
  67.       BackStyle       =   0  'Transparent
  68.       Caption         =   "9999999999"
  69.       BeginProperty Font 
  70.          Name            =   "Tahoma"
  71.          Size            =   9.75
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   255
  79.       Left            =   2880
  80.       TabIndex        =   3
  81.       Top             =   240
  82.       Width           =   1095
  83.    End
  84.    Begin VB.Label lblStatus 
  85.       BackStyle       =   0  'Transparent
  86.       BeginProperty Font 
  87.          Name            =   "Tahoma"
  88.          Size            =   9.75
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   255
  96.       Left            =   240
  97.       TabIndex        =   2
  98.       Top             =   1710
  99.       Width           =   3915
  100.    End
  101.    Begin VB.Label lblCallsCaption 
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "Calls Made"
  104.       BeginProperty Font 
  105.          Name            =   "Tahoma"
  106.          Size            =   9.75
  107.          Charset         =   0
  108.          Weight          =   400
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   255
  114.       Left            =   240
  115.       TabIndex        =   1
  116.       Top             =   240
  117.       Width           =   2535
  118.    End
  119. Attribute VB_Name = "frmClient"
  120. Attribute VB_GlobalNameSpace = False
  121. Attribute VB_Creatable = False
  122. Attribute VB_PredeclaredId = True
  123. Attribute VB_Exposed = False
  124. Option Explicit
  125. Private Sub Form_Load()
  126.     '-------------------------------------------------------------------------
  127.     'Effects:
  128.     '       Position form and load captions from string resource
  129.     '-------------------------------------------------------------------------
  130.     'Use clsPositionForm object to move
  131.     'Form to settings saved in registry
  132.     Dim oPosition As clsPositionForm
  133.     Set oPosition = New clsPositionForm
  134.     'Set Captions
  135.     ApplyFontToForm Me, giFONT_NAME_INDEX, giFONT_SIZE_INDEX, giFONT_CHARSET_INDEX
  136.     Caption = LoadResString(giFORM_CAPTION)
  137.     lblCallsCaption.Caption = LoadResString(giCALLS_MADE_CAPTION)
  138.     lblCallsReturnedCaption.Caption = LoadResString(giCALLS_RETURNED_CAPTION)
  139.     'Conditional compile toggles between release mode
  140.     'and a debug mode which displays a list box and
  141.     'list events as they occur in the box
  142.     #If ccShowList Then
  143.         lstLog.Visible = True
  144.         lblStatus.Visible = False
  145.         lblCallsCaption.Visible = False
  146.         lblCallsMade.Visible = False
  147.         lblCallsReturned.Visible = False
  148.         lblCallsReturnedCaption.Visible = False
  149.         oPosition.Move Me, True
  150.     #Else
  151.         oPosition.Move Me, False
  152.         Width = giDEFAULT_FORM_WIDTH
  153.         Height = giDEFAULT_FORM_HEIGHT
  154.     #End If
  155. End Sub
  156. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  157.     If UnloadMode = vbFormControlMenu And Not gbShutDown Then Cancel = True
  158. End Sub
  159. Private Sub Form_Resize()
  160.     #If ccShowList Then
  161.         Dim lX As Long
  162.         Dim lY As Long
  163.         If Me.ScaleHeight >= 2 * glFORM_MARGIN Then lY = (Me.ScaleHeight - (2 * glFORM_MARGIN)) Else lY = (2 * glFORM_MARGIN) - Me.ScaleHeight
  164.         If Me.ScaleWidth >= 2 * glFORM_MARGIN Then lX = (Me.ScaleWidth - (2 * glFORM_MARGIN)) Else lX = (2 * glFORM_MARGIN) - Me.ScaleWidth
  165.         lstLog.Move glFORM_MARGIN, glFORM_MARGIN, lX, lY
  166.     #End If
  167. End Sub
  168. Private Sub Form_Unload(Cancel As Integer)
  169.     'Use clsPositionForm object to save
  170.     'forms position in registry
  171.     Dim oPosition As clsPositionForm
  172.     Set oPosition = New clsPositionForm
  173.     oPosition.Save Me
  174. End Sub
  175. Private Sub tmrStartTest_Timer()
  176.     '-------------------------------------------------------------------------
  177.     'Purpose:
  178.     '       Calls Complete test or ConfigureTest and a RunTest method, depending
  179.     '       on gbRunCompleteProcedure flag
  180.     '-------------------------------------------------------------------------
  181.     Static stbInTimer As Boolean
  182.     tmrStartTest.Enabled = False
  183.     On Error GoTo tmrStartTestError
  184.     If Not stbInTimer Then
  185.         stbInTimer = True
  186.         If gbRunCompleteProcedure Then
  187.             CompleteTest
  188.         Else
  189.             ConfigureTest
  190.             goTestTool.RunTest
  191.         End If
  192.         stbInTimer = False
  193.     End If
  194.     Exit Sub
  195. tmrStartTestError:
  196.     LogError Err
  197.     StopOnError Err.Description
  198.     stbInTimer = False
  199.     Exit Sub
  200. End Sub
  201.